Ucitati prirodan broj n i elemente celobrojnog niza x duzine n.
Izracunati i prikazati zbir i srednju vrednost pranih odnosno nepranih elemenata
niza.



Sub zad3()
Dim x(100) As Long, n As Long, i As Long, zbp As Long, srp As Double, k As Long, b As Long
Dim zbn As Long, srn As Double
Open "Niz 1.txt" For Input As #1
Input #1, n
For i = 1 To n
Input #1, x(i)
Next
Close #1
zbp = 0
k = 0
zbn = 0
b = 0
For i = 1 To n
If x(i) Mod 2 = 0 Then
zbp = zbp + x(i)
k = k + 1
Else
zbn = zbn + x(i)
b = b + 1
End If
Next
srp = zbp / k
srn = zbn / b
MsgBox ("Zbir pranih je: " & zbp)
MsgBox ("Srednja vrednost parnih je: " & srp)
MsgBox ("Zbir neparnih je: " & zbn)
MsgBox ("Srednja vrednost neparnih je: " & srn)
End Sub
